package com.xhui.vimarket.common.utils.reflect;

import java.io.File;
import java.io.FileFilter;
import java.io.IOException;
import java.lang.reflect.Field;
import java.lang.reflect.Method;
import java.net.JarURLConnection;
import java.net.URL;
import java.net.URLDecoder;
import java.util.ArrayList;
import java.util.Collection;
import java.util.Enumeration;
import java.util.LinkedHashSet;
import java.util.List;
import java.util.Map;
import java.util.Set;
import java.util.jar.JarEntry;
import java.util.jar.JarFile;

import org.apache.log4j.Logger;

import com.xhui.vimarket.common.exception.RtManagerException;

/**
 * 类相关的工具类.
 * 
 * @author <a href="mailto:ohergal@gmail.com">ohergal</a>
 */
public final class ClassUtil {
    
    /**
     * .
     */
    private static final int NUM_6 = 6;
    
    /**
     * 默认构造函数.
     * 
     * @author wuyx
     *         2011-2-14 wuyx
     */
    private ClassUtil() {
    }
    
    /**
     * .
     */
    private static Logger log = Logger.getLogger(ClassUtil.class);
    
    /**
     * 取得某一类所在包的所有类名 不含迭代.
     * 
     * @param classLocation
     *            String
     * @param packageName
     *            String
     * @return String[]
     * @author wuyx
     *         2011-2-14 wuyx
     */
    public static String[] getPackageAllClassName(final String classLocation,
        final String packageName) {
        // 将packageName分解
        final String[] packagePathSplit = packageName.split("[.]");
        String realClassLocation = classLocation;
        final int packageLength = packagePathSplit.length;
        for (int i = 0; i < packageLength; i++) {
            realClassLocation = realClassLocation + File.separator + packagePathSplit[i];
        }
        final File packeageDir = new File(realClassLocation);
        if (packeageDir.isDirectory()) {
            final String[] allClassName = packeageDir.list();
            return allClassName;
        }
        return null;
    }
    
    /**
     * 从包package中获取所有的Class.
     * 
     * @param pack
     *            Package
     * @return Package
     * @author wuyx
     *         2011-2-14 wuyx
     */
    public static Set<Class<?>> getClasses(final Package pack) {
        
        // 第一个class类的集合
        final Set<Class<?>> classes = new LinkedHashSet<Class<?>>();
        // 是否循环迭代
        final boolean recursive = true;
        // 获取包的名字 并进行替换
        String packageName = pack.getName();
        final String packageDirName = packageName.replace('.', '/');
        // 定义一个枚举的集合 并进行循环来处理这个目录下的things
        Enumeration<URL> dirs;
        try {
            dirs = Thread.currentThread().getContextClassLoader().getResources(packageDirName);
            // 循环迭代下去
            while (dirs.hasMoreElements()) {
                // 获取下一个元素
                final URL url = dirs.nextElement();
                // 得到协议的名称
                final String protocol = url.getProtocol();
                // 如果是以文件的形式保存在服务器上
                if ("file".equals(protocol)) {
                    // 获取包的物理路径
                    final String filePath = URLDecoder.decode(url.getFile(), "UTF-8");
                    // 以文件的方式扫描整个包下的文件 并添加到集合中
                    ClassUtil.findAndAddClassesInPackageByFile(packageName, filePath, recursive,
                        classes);
                } else if ("jar".equals(protocol)) {
                    // 如果是jar包文件
                    // 定义一个JarFile
                    JarFile jar;
                    try {
                        // 获取jar
                        jar = ((JarURLConnection) url.openConnection()).getJarFile();
                        // 从此jar包 得到一个枚举类
                        final Enumeration<JarEntry> entries = jar.entries();
                        // 同样的进行循环迭代
                        while (entries.hasMoreElements()) {
                            // 获取jar里的一个实体 可以是目录 和一些jar包里的其他文件 如META-INF等文件
                            final JarEntry entry = entries.nextElement();
                            String name = entry.getName();
                            // 如果是以/开头的
                            if (name.charAt(0) == '/') {
                                // 获取后面的字符串
                                name = name.substring(1);
                            }
                            // 如果前半部分和定义的包名相同
                            if (name.startsWith(packageDirName)) {
                                final int idx = name.lastIndexOf('/');
                                // 如果以"/"结尾 是一个包
                                if (idx != -1) {
                                    // 获取包名 把"/"替换成"."
                                    packageName = name.substring(0, idx).replace('/', '.');
                                }
                                // 如果可以迭代下去 并且是一个包
                                if ((idx != -1) || recursive) {
                                    // 如果是一个.class文件 而且不是目录
                                    if (name.endsWith(".class") && !entry.isDirectory()) {
                                        // 去掉后面的".class" 获取真正的类名
                                        final String className = name.substring(packageName
                                            .length() + 1, name.length() - ClassUtil.NUM_6);
                                        try {
                                            // 添加到classes
                                            classes.add(Class
                                                .forName(packageName + '.' + className));
                                        } catch (final ClassNotFoundException e) {
                                            ClassUtil.log.error("添加用户自定义视图类错误 找不到此类的.class文件");
                                            e.printStackTrace();
                                        }
                                    }
                                }
                            }
                        }
                    } catch (final IOException e) {
                        ClassUtil.log.error("在扫描用户定义视图时从jar包获取文件出错");
                        e.printStackTrace();
                    }
                }
            }
        } catch (final IOException e) {
            e.printStackTrace();
        }
        
        return classes;
    }
    
    /**
     * 以文件的形式来获取包下的所有Class.
     * 
     * @param packageName
     *            String
     * @param packagePath
     *            String
     * @param recursive
     *            boolean
     * @param classes
     *            Set<Class<?>>
     */
    public static void findAndAddClassesInPackageByFile(final String packageName,
        final String packagePath, final boolean recursive, final Set<Class<?>> classes) {
        // 获取此包的目录 建立一个File
        final File dir = new File(packagePath);
        // 如果不存在或者 也不是目录就直接返回
        if (!dir.exists() || !dir.isDirectory()) {
            ClassUtil.log.warn("用户定义包名 " + packageName + " 下没有任何文件");
            return;
        }
        // 如果存在 就获取包下的所有文件 包括目录
        final File[] dirfiles = dir.listFiles(new FileFilter() {
            // 自定义过滤规则 如果可以循环(包含子目录) 或则是以.class结尾的文件(编译好的java类文件)
            public boolean accept(final File file) {
                return (recursive && file.isDirectory()) || (file.getName().endsWith(".class"));
            }
        });
        // 循环所有文件
        for (final File file : dirfiles) {
            // 如果是目录 则继续扫描
            if (file.isDirectory()) {
                ClassUtil.findAndAddClassesInPackageByFile(packageName + "." + file.getName(), file
                    .getAbsolutePath(), recursive, classes);
            } else {
                // 如果是java类文件 去掉后面的.class 只留下类名
                final String className = file.getName().substring(0,
                    file.getName().length() - ClassUtil.NUM_6);
                try {
                    // 添加到集合中去
                    classes.add(Class.forName(packageName + '.' + className));
                } catch (final ClassNotFoundException e) {
                    ClassUtil.log.error("添加用户自定义视图类错误 找不到此类的.class文件");
                    e.printStackTrace();
                }
            }
        }
    }
    
    /**
     * isAssignableFrom.
     * 
     * @param beCheckClazz
     *            Class
     * @param targetClazz
     *            Class
     * @return boolean
     */
    public static boolean isAssignableFrom(final Class<?> beCheckClazz, final Class<?> targetClazz) {
        return (beCheckClazz != null && targetClazz != null && beCheckClazz
            .isAssignableFrom(targetClazz)) ? true
            : false;
    }
    
    /**
     * 实例化.
     * 
     * @param clazzStr
     *            String
     * @return Object
     * @author wuyx
     *         2011-2-22 wuyx
     */
    @SuppressWarnings("unchecked")
    public static Object newInstance(String clazzStr) {
        Class c;
        try {
            c = Class.forName(clazzStr);
        } catch (ClassNotFoundException e) {
            throw new RtManagerException("根据类：@clz,反射实例化错误（ClassNotFoundException）",
                ClassUtil.class, "newInstance", "ClassNotFoundException", "@clz", clazzStr);
        }
        Object obj;
        try {
            obj = c.newInstance();
        } catch (InstantiationException e) {
            throw new RtManagerException("根据类：@clz,反射实例化错误（InstantiationException）",
                ClassUtil.class, "newInstance", "InstantiationException", "@clz", clazzStr);
        } catch (IllegalAccessException e) {
            throw new RtManagerException("根据类：@clz,反射实例化错误（IllegalAccessException）",
                ClassUtil.class, "newInstance", "IllegalAccessException", "@clz", clazzStr);
        }
        return obj;
    }
    
    /**
     * 根据属性名称获取属性值.
     * 
     * @param object
     * @param propName
     * @return
     * @author zhoupc
     *         2011-2-25 zhoupc
     */
    public static Object getPropValueByNameSimple(Object object, String propName) {
        try {
            //优先从方法获取，get+属性(属性第一个字母为转换成大写)
            Object result = getPropValueByMethod(object, propName);
            if (result == null) {
                Field field = object.getClass().getDeclaredField(propName);
                if (field == null) {
                    return null;
                }
                // 获取原来的访问控制权限
                boolean accessFlag = field.isAccessible();
                // 修改访问控制权限
                field.setAccessible(true);
                result = field.get(object);
                field.setAccessible(accessFlag);
            }
            return result;
        } catch (Exception e) {
            // 异常返回空
            return getPropValueByMethod(object, propName);
        }
    }
    
    /**
     * 根据属性名称获取属性值.
     * 
     * @param object
     * @param propName
     * @return
     * @author zhoupc
     *         2011-2-25 zhoupc
     */
    public static Object getPropValueByName(Object object, String propName) {
        try {
            String props[] = propName.split("\\.");
            Object o = object;
            for (String prop : props) {
                o = getPropValueByNameSimple(o, prop);
                if (o == null) {
                    break;
                }
            }
            return o;
        } catch (Exception e) {
            // 异常返回空
            return null;
        }
    }
    
    /**
     * 根据属性名称获取属性值.
     * 
     * @param object
     * @param propName
     * @return
     * @author zhoupc
     *         2011-2-25 zhoupc
     */
    public static Object getPropValueByMethod(Object object, String propName, Object... params) {
        try {
            StringBuffer sb = new StringBuffer(propName);
            sb.setCharAt(0, Character.toUpperCase(propName.charAt(0)));
            
            Method method = object.getClass().getDeclaredMethod("get" + sb.toString());
            if (method == null) {
                return null;
            }
            // 获取原来的访问控制权限
            boolean accessFlag = method.isAccessible();
            // 修改访问控制权限
            method.setAccessible(true);
            Object result = method.invoke(object);
            method.setAccessible(accessFlag);
            return result;
        } catch (Exception e) {
            // 异常返回空
            return null;
        }
    }
    
    /**
     * 通过对象与输入条件比较.
     * 
     * @param object
     * @param props
     * @return
     */
    public static boolean compareByCondtion(Object object, Map<String, Object> props) {
        boolean result = true;
        for (String key : props.keySet()) {
            Object value = props.get(key);
            Object propValue = getPropValueByName(object, key);
            result = (value == propValue) || (value != null && value.equals(propValue));
            if (!result)
                break;
        }
        return result;
    }
    
    /**
     * 根据条件过滤列表。
     * 
     * @param collection
     * @param props
     * @return
     */
    public static List filterCollection(Collection collection, Map<String, Object> props) {
        List list = new ArrayList();
        for (Object o : collection) {
            if (compareByCondtion(o, props)) {
                list.add(o);
            }
        }
        return list;
    }
    
    /***************************************************************************
     * 判断对象o实现的所有接口中是否有szInterface
     * 2008-08-07 修正多继承中判断接口的功能，
     * 以及修正接口继承后的判断功能
     * package test;
     * public interface ITest extends Serializable
     * public class Test1 implements ITest
     * public class Test2 extends Test1
     * public class Test3 extends Test2
     * isInterface(Test3.class, "java.io.Serializable") = true
     * isInterface(Test3.class, "test.ITest") = true
     * 
     * @param c
     *            Class
     * @param szInterface
     *            String
     * @return boolean
     */
    public static boolean isInterface(Class c, String szInterface) {
        Class[] face = c.getInterfaces();
        for (int i = 0, j = face.length; i < j; i++) {
            if (face[i].getName().equals(szInterface)) {
                return true;
            } else {
                Class[] face1 = face[i].getInterfaces();
                for (int x = 0; x < face1.length; x++) {
                    if (face1[x].getName().equals(szInterface)) {
                        return true;
                    } else if (isInterface(face1[x], szInterface)) {
                        return true;
                    }
                }
            }
        }
        if (null != c.getSuperclass()) {
            return isInterface(c.getSuperclass(), szInterface);
        }
        return false;
    }
    
    /**
     * .
     * 
     * @param obj
     *            Object
     * @return boolean
     * @author wuyx
     *         2011-12-6 wuyx
     */
    public static boolean isArray(Object obj) {
        if (obj == null) {
            return false;
        } else if (obj instanceof Collection) {
            return true;
        }
        return false;
    }
}
